  10 :return ;clear ;BC=0;FC=28;A=10;H=100;P=1000;T=0
  15 &(21)=0
  20 for Z=-10to 10step 20;box Z,0,11,1,1;box 0,Z,1,11,1;next Z
  25 CY=-14;print "TEMP====";print "POWER===";print "SHIELDS=100%
  30 for Z=1to 50;box rnd (160)-80,rnd (88)-44,1,1,1;next Z
  40 X=rnd (30)-15;Y=rnd (30)-15;Q=rnd (4)
  45 if Q#1goto 53
  50 box X,Y,5,3,3;box X,Y+1,3,3,3;box X,Y,9,1,3;E=JX(1)mul 2;F=JY(1)mul 2
  53 T=T-1;if T<0T=0
  54 P=P-1;if P<0P=0
  55 NT=0;CY=-14;CX=-28;print #1,T;CY=-22;CX=-28;print #1,P
  56 if P=0print "POWER FAILURE!!!";goto 3000
  57 if T>100print "ENGINES OVERHEATED!!!!";goto 4000
  58 if Q#1for Z=1to 150;next Z;goto 40
  60 if rnd (6)=1NT=3;goto 1000
  65 NT=2;MU=70
  67 if TR(1)P=P-25;T=T+9;goto 2000
  70 box X,Y,5,3,3;box X,Y+1,3,3,3;box X,Y,9,1,3;X=X+rnd (3)-2-E;Y=Y+rnd (3)-2-F;goto 50
1000 for Z=1to 2;FC=89;box X,Y,9,9,3;MU=76;next Z;FC=28;B=rnd (3)
1030 if B#1goto 67
1040 FC=89;&(21)=255;for Z=11to 88step 11;box X,Y,Z,Z,3;&(23)=Zmul 3;box X,Y,Z,Z,3;next Z;FC=28;&(21)=0;&(23)=0
1044 BC=89;for Z=1to 50;next Z;BC=0
1045 if H=0goto 6000
1046 if X+3>0if X-3<0if Y+3>0if Y-3<0H=H-10
1047 H=H-10;if H<0H=0
1060 T=T+5;CY=-30;CX=-28;print #1,H,"%";goto 55
2000 &(20)=40;&(19)=37;&(21)=15;FC=92;line -40,-40,4;line 0,0,3;line 40,-40,3;XY=0;line -40,-40,3;XY=0;line 40,-40,3
2001 FC=28;&(20)=0;&(19)=0
2010 &(21)=0;if PX(0,0)=1A=A-1;goto 2030
2020 goto 70
2030 FC=116;NT=3;for Z=1to 11;MU=40;box X,Y,Z,Z,3;box X,Y,Z,Z,3;next Z;FC=28;box 0,0,11,11,2
2035 if A=0goto 7500
2040 CY=-38;print #1,A," ALIEN",;if A#1print "S",
2045 print " LEFT";for Z=1to 500;next Z;CY=-38;print "             
2050 T=T+10;P=P-50;goto 40
3000 for Z=30to 120;FC=6;box -45,-22,70,8,3;&(19)=Zmul 2;&(21)=15;next Z;&(19)=0;FC=0;goto 8000
4000 for Z=1to 100;FC=67;box -45,-14,70,8,3;&(19)=210-Zmul 2;&(21)=15;&(20)=25;next Z;&(19)=0;&(20)=0;FC=0;goto 8000
6000 CY=-38;print "YOU HAVE BEEN DESTROYED!!";&(23)=255;&(21)=255;&(19)=45;for Z=1to 25;BC=93;NT=3
6010 MU=82;BC=0;next Z;&(23)=0;&(19)=0;&(21)=0;FC=0;goto 8000
7500 print "YOU HAVE DESTROYED THEM!!";FC=205;for Z=1to 50;box 0,0,33,33,3;next Z;P=P+25;if P>W W=P
7510 print ;print "YOUR SCORE = ",#1,P;print ;print "TODAY'S HIGH SCORE = ",#1,W
7520 if TR(1)goto 10
7530 goto 7520
8000 for Z=1to 20;BC=98;&(23)=255;&(21)=255;next Z;BC=0;&(23)=0;&(21)=0;for Z=1to 2000;next Z;goto 10
run 